home *** CD-ROM | disk | FTP | other *** search
/ Palm Utilities / Palm_Utilities_CD-ROM_2001_2001.iso / files / utils sync / JetSync 1.0 / jetsync-1.0.exe / jetsync-1.0 / setup.dir / button.def next >
Encoding:
Text File  |  1999-08-18  |  335 b   |  15 lines
  1. ## button directives for dialogs
  2.  
  3. proc defbutton {name args} {
  4.   eval button $name $args
  5.   $name configure -bd 2
  6.   bind [winfo toplevel $name] <Return> "$name invoke"
  7. }
  8.  
  9. proc cancelbutton {name args} {
  10.   eval button $name $args
  11.   # bind escape key with button
  12.   bind [winfo toplevel $name] <Key-Escape> "$name invoke"
  13.   return $name
  14. }
  15.